ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД “УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ” Факультет інформаційних технологій Лабораторна робота №10 Лабораторна робота №10. Тема: Робота з рядковими змінними. Мета: Вивчення процедур та функцій роботи з рядковими змінними. Вивчити питання: Рядок. Опис типу. Дії над рядковими виразами. Стандартні процедури та функції для обробки рядків. Типові приклади обробки рядків. ЗАВДАННЯ ДО РОБОТИ: Варіант 3 Вилучити з тексту слова, довжина яких більша за N. ХІД РОБОТИ
program lab10; var text: string; n,len, i, j: integer; begin Writeln('Введіть число(кількість букв)'); Readln(n); write('Enter text: '); readln(text); len:= length(text); i:= 1; {Початок 1 символ} j:= 0; {Довжина рівна 0} while i<=len do begin if text[i]<>' ' then begin {Якщо символ не пробіл} j:=j+1; {Збільшуємо довжину слова} i:=i+1; {Переходимо до наступної букви} end else begin if j>n then begin delete(Text,i-j,j+1); len:= length(Text); i:= i-j; j:= 0; end else begin {Якщо довжина слова >N} i:= i+1; j:= 0; end; end; end; if j>n then {Якщо останнє слово>N } delete(Text,i-j,j); writeln(Text); readln; end.
ВИСНОВКИ За допомогою даної лабораторної роботи я вивчила процедури та функції роботи з рядковими змінними. Розглянула такі питання: рядок, опис типу, дії над рядковими виразами, стандартні процедури та функції для обробки рядків, типові приклади обробки рядків.